﻿Public Class SettingForm

    Private Sub SettingForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.txtTitle.Text = MyConfig.标题

        If MyConfig.模式 = "0" Then
            Me.rad浏览.Checked = True
        Else
            Me.rad编辑.Checked = True
        End If

        If MyConfig.使用皮肤 = "1" Then
            Me.chk使用.Checked = True
        Else
            Me.chk使用.Checked = False
        End If

        Me.com皮肤.Text = MyConfig.皮肤名称

    End Sub

    Private Sub btn保存_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn保存.Click
        MyConfig.标题 = Me.txtTitle.Text.Trim
        If rad浏览.Checked = True Then
            MyConfig.模式 = "0"
        Else
            MyConfig.模式 = "1"
        End If

        If Me.chk使用.Checked = True Then
            MyConfig.使用皮肤 = "1"
        Else
            MyConfig.使用皮肤 = "0"
        End If

        MyConfig.皮肤名称 = Me.com皮肤.Text

        wys.util.Common.MessageBase.ShowMessage("保存成功")
        DialogResult = Windows.Forms.DialogResult.OK

    End Sub
End Class
